home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxinstl.zip / SEQSEG.ASM < prev    next >
Assembly Source File  |  1991-10-17  |  685b  |  35 lines
  1.  
  2. TITLE    SEQSEG
  3.  
  4. stack    segment para    public    'stack'
  5.     db 512h dup (?)
  6. stack    ends
  7. code    segment para    public    'code'
  8. code    ends
  9. install_data    segment word    public    'data'
  10. install_data    ends
  11.  
  12. EXTRN    INSTALL:FAR
  13.  
  14. EXTRN    error:byte
  15.  
  16. SEQSEGS   SEGMENT  PARA PUBLIC    'CODE'
  17. SEQSEG PROC    FAR
  18.     assume cs:seqsegs,ss:stack
  19. PUBLIC    seqseg
  20.     jmp    short start
  21.  
  22. RET_CD    EQU    0            ;ERRORLEVEL RETURN CODE VALUE
  23. RET_FN    EQU    4CH            ;"RETURN TO DOS" FUNCTION CALL
  24.  
  25. start:
  26.     CALL    INSTALL
  27.     MOV    AX,RET_FN*256 + RET_CD    ;RETURN TO DOS FUNCTION CALL, AND
  28.                     ;VALUE TO BE PASSED TO ERRORLEVEL
  29.     INT    21H            ;RETURN TO DOS
  30.                     ; (VERSION 2.00 OR LATER)
  31.  
  32. SEQSEG ENDP
  33. SEQSEGS        ENDS
  34.     END    SEQSEG
  35.